home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / TEST17.TRP < prev    next >
Text File  |  1995-01-17  |  223b  |  12 lines
  1. procedure main
  2. var
  3.         i : boolean;
  4. endvar
  5.         i := (5 <> 3);
  6.         if (i) then
  7.                 writeln('(5 <> 3) - True')
  8.         else
  9.                 writeln('(5 <> 3) - False')
  10.         endif
  11. endproc
  12.